perm filename PCROSS.ODF[PAS,SYS] blob
sn#452538 filedate 1979-07-05 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00008 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00003 00002 PCRBKP.NEW IS NOW PCROSS.BKP PCROLD.NEW IS NOW PCROSS.OLD
C00007 00003 1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 2,2
C00010 00004 1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 4,2
C00013 00005 1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 6,2
C00016 00006 1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 7,3
C00019 00007 1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 7,3
C00021 00008 1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 7,3
C00024 ENDMK
C⊗;
PCRBKP.NEW IS NOW PCROSS.BKP; PCROLD.NEW IS NOW PCROSS.OLD
1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 2,2
**** File 1) PCRBKP.NEW[PAS,SYS], Page 2 line 67
1) maxch = 104; (*MAXIMUM LINE LENGTH IN CROSSLIST*)
1) max_line_count = 7777B; (*LIMIT OF LINES/EDIT-PAGE*)
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 67
2) maxcrossch = 120; (*DEFAULT MAXIMUM LINE LENGTH IN CROSSLIST*)
2) margin = 14;
2) max_line_count = 7777B; (*LIMIT OF LINES/EDIT-PAGE*)
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 2 line 75
1) dots = ' . . . . . . . . . . . . . . . . . . . . . . . . . .';
1) TYPE
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 76
2) dots = ' . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .';
2) TYPE
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 2 line 82
1) missgrpar,missgquote,missgmain,missgpoint);
1) lineptrty = ↑line;
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 83
2) missgrpar,missgquote,missgmain,missgpoint,linetoolong);
2) lineptrty = ↑line;
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 2 line 171
1) reallincnt, (*COUNTS THE LINES PER PRINT PAGE*)
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 172
2) maxch, (*MAXIMUM LINE LENGTH IN CROSSLIST*)
2) reallincnt, (*COUNTS THE LINES PER PRINT PAGE*)
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 2 line 181
1) buffer : ARRAY [-1..202] OF ascii; (*INPUT BUFFER*)
1) (* BUFFER HAS 2 EXTRA POSITIONS ON THE LEFT AND ONE ON THE RIGHT*)
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 183
2) buffer : ARRAY [-1..302] OF ascii; (*INPUT BUFFER*)
2) (* BUFFER HAS 2 EXTRA POSITIONS ON THE LEFT AND ONE ON THE RIGHT*)
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 2 line 214
1) eoline, (*SET AT END ON INPUT LINE*)
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 216
1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 2,2
2) commzone, (*SET WHILE SCANNING THE FIRST LINE OF A COMMENT*)
2) eoline, (*SET AT END ON INPUT LINE*)
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 3 line 7
1) feed:=4;
1) indentbegin:=0;
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 265
2) feed:=3;
2) indentbegin:=0;
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 3 line 128
1) bmarktext := ' ';
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 386
2) commzone := false;
2) bmarktext := ' ';
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 3 line 188
1) FOR i := -1 TO 201 DO
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 447
2) errmsg[linetoolong ] := 'LINE TOO LONG. I''M GONNA GET CONFUSED. ';
2) FOR i := -1 TO 201 DO
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 4 line 25
1) ! /INDENT:<N> INDENTATION BETWEEN LEVELS. 4
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 484
2) ! /CWIDTH:<N> MAXIMUM LINE LENGTH IN CROSSLIST 120
2) ! /INDENT:<N> INDENTATION BETWEEN LEVELS. 4
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 4 line 129
1) IF option('INDENT ') THEN
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 589
2) IF option('CWIDTH ') THEN
2) getoption('CWIDTH ',maxch)
2) ELSE
2) maxch := maxcrossch;
2) maxch := maxch - margin;
2) IF option('INDENT ') THEN
***************
1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 4,2
**** File 1) PCRBKP.NEW[PAS,SYS], Page 6 line 1
1) (*BLOCK[*) (*OUTPUT PROCEDURES:*) (*ERROR*) (*WRITELINE[*) (*USEDOTS*) (*]*)
1) PROCEDURE block;
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 675
2) PROCEDURE block;
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 6 line 23
1) missgof, missgrpar,
1) missgquote : write(crosslist, errmsg[errnr]);
1) missgmain : write(crosslist, errmsg[missgmain]);
1) END;
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 694
2) missgof, missgrpar,missgmain, missgpoint,linetoolong,
2) missgquote : write(crosslist, errmsg[errnr]);
2) END;
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 6 line 35
1) missgof, missgrpar,
1) missgquote : write(tty, errmsg[errnr]);
1) missgmain : write(tty, errmsg[missgmain]);
1) END;
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 705
2) missgof, missgrpar,missgmain, missgpoint,linetoolong,
2) missgquote : write(tty, errmsg[errnr]);
2) END;
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 6 line 123
1) usedots(lastspaces+16+feed);
1) maxchar:=maxch+j-lastspaces-1;
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 792
2) write(crosslist,tabs:1,' ':6);
2) IF commzone THEN
2) usedots(spaces + 1)
2) ELSE
2) usedots(lastspaces+feed);
2) maxchar:=maxch+j-lastspaces-1;
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 6 line 158
1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 6,2
1) END (*WRITELINE*) ;
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 831
2) commzone := false;
2) END (*WRITELINE*) ;
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 7 line 37
1) newpage;
1) reallincnt := reallincnt + 1;
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 869
2) header(curprocname);
2) reallincnt := reallincnt + 1;
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 7 line 58
1) buffer[bufflen+1] := ' '; (*SO WE CAN ALWAYS BE ONE CHAR AHEAD*)
**** File 2) PCROLD.NEW[PAS,SYS], Page 2 line 890
2) IF bufflen > 300 THEN
2) error(linetoolong);
2) buffer[bufflen+1] := ' '; (*SO WE CAN ALWAYS BE ONE CHAR AHEAD*)
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 7 line 271
1) i, start: integer;
1) PROCEDURE expand (here: integer; firstch, secondch: char);
**** File 2) PCROLD.NEW[PAS,SYS], Page 3 line 115
2) i, lastblank: integer;
2) PROCEDURE expand (here: integer; firstch, secondch: char);
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 7 line 292
1) spaces := spaces + bufferptr - 1;
1) oldspaces := true;
1) IF dellength = 2 THEN
**** File 2) PCROLD.NEW[PAS,SYS], Page 3 line 136
2) spaces := spaces + bufferptr - buffmark - 1;
2) oldspaces := true;
2) commzone := spaces < maxch;
2) IF NOT commzone THEN
2) spaces := lastspaces;
2) IF dellength = 2 THEN
***************
1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 7,3
**** File 1) PCRBKP.NEW[PAS,SYS], Page 7 line 301
1) start := bufferptr + 1;
1) REPEAT
1) readbuffer;
1) UNTIL (ch = secondch) AND (buffer[bufferptr-2] = firstch) OR eob;
1) IF NOT comcase THEN
1) FOR i := start TO bufferptr - 3 DO
1) buffer[i] := lower[buffer[i]];
1) IF cleaning THEN
**** File 2) PCROLD.NEW[PAS,SYS], Page 3 line 148
2) REPEAT
2) readbuffer;
2) IF NOT comcase THEN
2) buffer[bufferptr] := lower[buffer[bufferptr]];
2) UNTIL (ch = secondch) AND (buffer[bufferptr-2] = firstch) OR eob;
2) IF cleaning THEN
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 7 line 318
1) start := bufferptr + 1;
1) REPEAT
1) readbuffer;
1) UNTIL (ch = firstch) OR eob;
1) IF NOT comcase THEN
1) FOR i := start TO bufferptr - 2 DO
1) buffer[i] := lower[buffer[i]];
1) IF cleaning THEN
**** File 2) PCROLD.NEW[PAS,SYS], Page 3 line 163
2) REPEAT
2) readbuffer;
2) IF NOT comcase THEN
2) buffer[bufferptr] := lower[buffer[bufferptr]];
2) UNTIL (ch = firstch) OR eob;
2) IF cleaning THEN
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 7 line 328
1) spaces := oldspacesmark;
1) oldspaces := true;
1) END (*DOCOMMENT*);
**** File 2) PCROLD.NEW[PAS,SYS], Page 3 line 171
2) REPEAT
2) readbuffer;
2) UNTIL ch <> ' ';
2) spaces := oldspacesmark;
2) END (*DOCOMMENT*);
1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 7,3
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 7 line 335
1) get(oldsource);
1) get(oldsource);
1) get(oldsource);
1) bufferptr := 0;
**** File 2) PCROLD.NEW[PAS,SYS], Page 3 line 180
2) BEGIN
2) IF eoln(oldsource) THEN
2) linecnt := linecnt + 1;
2) get(oldsource);
2) END;
2) get(oldsource);
2) get(oldsource);
2) linecnt :=linecnt + 2;
2) bufferptr := 0;
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 7 line 346
1) BEGIN
1) CASE ch OF
**** File 2) PCROLD.NEW[PAS,SYS], Page 3 line 196
2) CASE ch OF
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 7 line 361
1) bufferptr := bufferptr + 1
1) ELSE
**** File 2) PCROLD.NEW[PAS,SYS], Page 3 line 210
2) BEGIN
2) bufferptr := bufferptr + 1;
2) readbuffer;
2) END
2) ELSE
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 7 line 366
1) END;
1) readbuffer;
1) END;
1) CASE ch OF
**** File 2) PCROLD.NEW[PAS,SYS], Page 3 line 218
2) OTHERS:
1) PCRBKP.NEW[PAS,SYS] and 2) PCROLD.NEW[PAS,SYS] 7-05-79 11:36 pages 7,3
2) readbuffer;
2) END;
2) CASE ch OF
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 11 line 8
1) itemlen: integer; (*LENGTH OF A PRINTED LINENUMBER, 5 OR 8*)
1) thiscall : calledty;
**** File 2) PCROLD.NEW[PAS,SYS], Page 3 line 911
2) itemlen: integer; (*LENGTH OF A PRINTED LINENUMBER, 6 OR 9*)
2) thiscall : calledty;
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 11 line 32
1) write (crosslist, linecnt * increment:4, ' ');
1) IF depth > 2 THEN
**** File 2) PCROLD.NEW[PAS,SYS], Page 3 line 935
2) write (crosslist, linecnt * increment:5, ' ');
2) IF depth > 2 THEN
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 11 line 115
1) itemlen := 10
1) ELSE
1) itemlen := 7;
1) WITH firstname ['M']↑ DO (*DELETE 'MAIN'*)
**** File 2) PCROLD.NEW[PAS,SYS], Page 5 line 19
2) itemlen := 9
2) ELSE
2) itemlen := 6;
2) WITH firstname ['M']↑ DO (*DELETE 'MAIN'*)
***************
**** File 1) PCRBKP.NEW[PAS,SYS], Page 12 line 10
1) maxinc := (999 DIV increment);
1) LOOP
**** File 2) PCROLD.NEW[PAS,SYS], Page 5 line 123
2) maxinc := (1000 DIV increment);
2) LOOP
***************